home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / zipper #1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  32 lines
  1. 10 rem copyright 1988 compute publications, inc. - all rights reserved
  2. 15 poke 53280,0:poke 53281,0:poke 646,8
  3. 20 print"[147]   copyright 1988 compute! pub., inc."
  4. 30 printtab(11)"all rights reserved":fori=1to1500:next
  5. 40 fori=1to64:reada:x=x+a:next:ifx<>517636thenprint"data statement error":stop
  6. 50 restore:print"[147]":printtab(7)"musical zipper is closed!":print
  7. 60 f=.94:rem relative pitch factor. see line 130.
  8. 70 v=54272:v1=54273:v2=54279:v3=54280:k=256:b=38:d=2
  9. 80 fort=vtov+23:poket,0:next:rem clear sound chip
  10. 90 pokev+24,15:rem volume, both voices
  11. 100 pokev+5,9:pokev+6,16:pokev+12,9:pokev+13,16:rem adsr's
  12. 110 pokev+3,8:pokev+10,8:rem square wave
  13. 120 forq=1to32:readm,n:rem values from programmer's reference guide
  14. 130 m=m*f:n=n/f:rem multiply higher voice, divide lower voice by factor
  15. 140 pokev1,int(m/k):pokev,m-int(m/k)*k:rem pokeable values high voice
  16. 150 pokev3,int(n/k):pokev2,n-int(n/k)*k:rem pokeable values low voice
  17. 160 pokev+4,65:gosub240:pokev+4,64:rem play upper voice
  18. 170 pokev+11,65:gosub250:pokev+11,64:rem play lower voice
  19. 180 printtab((b-z)/d)"[188]"spc(z)"[188]"
  20. 190 next:restore:rem print zipper
  21. 200 f=f*1.2:z=z+2:rem increase relative pitch factor and space inside zipper
  22. 210 iff>5thenf=5:z=18:gosub230
  23. 220 goto120
  24. 230 print:printtab(6)"musical zipper is wide open!":print:return
  25. 240 fort=1to90:next:return
  26. 250 fort=1to65:next:return
  27. 260 data10814,8583,9634,8583,8583,9634,9634,10814,10814,8583,10814,10814,10814
  28. 270 data9634,0,6430,9634,8583,9634,8583,9634,9634,0,10814,10814,8583,12860,0
  29. 280 data12860,6430,0,0,10814,8583,9634,8583,8583,9634,9634,10814,10814,11457
  30. 290 data10814,10814,10814,9634,10814,8583,9634,8101,9634,6430,10814,7271,9634
  31. 300 data8101,8583,8583,0,0,0,8583,0,0
  32.